home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 9
/
009.d81
/
poe adventure
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
22KB
|
681 lines
2 dima$(12),o$(24),o(24),r$(15)
5 poke53280,6:poke53281,0:poke646,1:printchr$(14)
10 goto15000
1000 remconversation
1010 ifr=14andd(4)=0thengosub25030:ifde(2)=4then16000
1020 ifr=4thengosub25000:ifde(1)=4then16000
1030 x=0
1040 iff4=3then16000
1060 print
1070 print"--->[215]hat should [201] do now?":print:inputc$:print
1080 ifc$=""thenprinta$(1):goto1000
1090 iflen(c$)=1ormid$(c$,2,1)=" "then1210
1100 ifmid$(c$,2,1)=" "thenprinta$(2):printleft$(c$,1):goto1000
1110 iflen(c$)=2ormid$(c$,3,1)=" "then2000
1120 iflen(c$)=3ormid$(c$,4,1)=" "then3000
1130 iflen(c$)=4ormid$(c$,5,1)=" "then4000
1140 iflen(c$)=5ormid$(c$,6,1)=" "then6000
1150 iflen(c$)=6ormid$(c$,7,1)=" "then8000
1160 iflen(c$)=7ormid$(c$,8,1)=" "then8500
1170 iflen(c$)=8ormid$(c$,9,1)=" "then9000
1180 iflen(c$)=9ormid$(c$,10,1)=" "then9500
1190 iflen(c$)=11ormid$(c$,12,1)=" "then9600
1200 printa$(1):goto1000
1210 fl=0:ifdark=1and(l=0 or o(15))thenfl=1
1212 iffl=1thenprint"[208]oe wrote in the 19th century. [212]hat "
1214 iffl=1thenprint"was before they invented x-rays vision."
1216 iffl=1thenprint"[201]t's dark in here!!!":goto1000
1218 fl=0
1220 ifc$="s"then1320
1230 ifc$="n"then1340
1240 ifc$="w"then1370
1250 ifc$="e"then1400
1260 ifc$="u"then1440
1270 ifc$="d"then1600
1280 ifc$="i"then14100
1290 ifleft$(c$,1)<>"l"thenprinta$(2):printleft$(c$,1):goto1000
1300 ifc$="l"then13500
1310 c$="look"+mid$(c$,2):goto4000
1320 ifs=0 thenprinta$(3):goto1000
1330 r=r-1:goto13000
1340 ifn=0thenprinta$(3):goto1000
1350 ifr=1andd(1)=0thenprinta$(4):goto1000
1360 r=r+1:goto13000
1370 ifw=0 thenprinta$(3):goto1000
1380 ifr=4thenprint"[201] can't do that. [212]he moving wall has"
1382 ifr=4thenprint"blocked the door!":goto1000
1390 r=5:goto13000
1400 ife=0 thenprinta$(3):goto1000
1410 ifr=2thenr=4
1420 ifr=5thenr=2
1430 goto13000
1440 ifu=0 thenprinta$(3):goto1000
1450 ifr=2thens=1:gosub26000:goto1000
1460 ifr=4andwtthenprint"[201] can't fit. [201]'m carrying too much.":goto1000
1470 ifr=4thenr=6
1480 ifr=7thenr=3
1490 ifr=8thenr=7
1500 ifr=9thenr=8
1510 ifr=10thenr=9
1520 ifr=14andd(4)=0thenprinta$(4):goto1000
1530 ifr=14thenr=5
1540 ifr=13andd(5)=0thenprinta$(4):goto1000
1550 ifr=13thenr=14
1560 ifr=12andd(6)=0thenprinta$(4):goto1000
1570 ifr=12thenr=13
1580 ifr=11thenr=12
1590 goto13000
1600 ifr=8andd(3)thend=1
1610 ifd=0thenprinta$(3):goto1000
1615 ifr=6andd(8)=0thenprinta$(4):goto1000
1620 ifr=6thenr=2:s=2:gosub26000
1630 ifr=9thenr=10
1640 ifr=8thenr=9
1650 ifr=7thenr=8
1660 ifr=3andd(2)=0thenprinta$(5):goto1000
1670 ifr=3thenr=7
1680 ifr=12thenr=11
1690 ifr=13thenr=12
1700 ifr=14thenprinta$(4):goto1000
1710 goto13000
2000 rem2letter1stwords
2010 s$=left$(c$,2):s2$=" ":iflen(c$)>3thens2$=mid$(c$,4)
2020 ifs$<>"go"thenprinta$(2):prints$:goto1000
2030 ifc$="go"thenprinta$(1):goto1000
2040 fl=0:ifs2$<>"south"andr=3ando(7)=rthenfl=1
2042 iffl=1thenprint"[212]he orangutan won't let me.":goto1000
2044 fl=0
2050 fl=0:ifs2$="north"ors2$="south"ors2$="east"ors2$="west"ors2$="up"thenfl=1
2052 ifs2$="down"orfl=1thenc$=left$(s2$,1):goto1210
2054 fl=0
2100 ifs2$<>"clock"then2150
2110 ifr<>3thenprinta$(6):goto1000
2120 ifd(7)=0thenprint"[201]t has to be opened first.":goto1000
2130 ifd(2)=0thende=3:gosub27000:goto16000
2140 r=7:goto13000
2150 ifs2$="door"thens=3:gosub26000:goto1000
2155 ifs2$="hole"andr=8ando(22)=rthenr=9:goto13000
2160 fl=0:if(s2$="plaque"andr=1)or(s2$="ladder"andr=4)thenfl=1
2162 if((s2$="raven"ors2$="perch")andr=5)thenfl=1
2164 iffl=1thenprint"[207]kay.":fl=0:goto1000
2170 ifs2$="desk"andr=2thens=4:gosub26000:goto1000
2180 ifs2$<>"shelves"ands2$<>"bookshelves"then2250
2190 fl=0:ifr=2and(o(6)=roro(8)=r)thens=5:gosub26000:fl=1
2192 iffl=1thenifo(6)=rando(8)=rthens=6:gosub26000:fl=0
2200 ifr=2and(o(6)=roro(8)=r)then1000
2210 ifr=2ando(6)=1000thens=5:gosub26000:s=6:gosub26000:o(6)=r:o(8)=r:goto1000
2220 ifr=2thenprinta$(9):goto1000
2230 ifs2$=" ladder"andr=4thenprint"[207]kay.":goto1000
2240 ifs2$=" raven"ors2$=" perch"andr=5thenprint"[207]kay.":goto1000
2250 ifs2$="coffin"andr=5andd(4)thenr=14:goto13000
2260 ifs2$="coffin"andr=5thenprint"[201]t has to be opened first.":goto1000
2270 ifs2$="stairs"andr=7thenprint"up or down?":goto1000
2280 ifs2$="stairs"andr=8then1440
2290 ifs2$="walls"thenprinta$(1):goto1000
2300 ifleft$(s2$,4)<>"pass"then2340
2310 ifd(3)andr=8thenr=9:goto13000
2320 ifr=10thenr=9:goto13000
2330 ifr=9thenprinta$(9):goto1000
2340 ifs2$="pump"andr=10thens=46:gosub26000:goto1000
2350 ifs2$="ledge"andr=10thenprint"[201]t's too high up.":goto1000
2360 ifs2$="tree"andr=11then1440
2370 gosub63100:goto1000
2380 printa$(2):prints2$:goto1000
3000 remthreeletterwords
3010 s$=left$(c$,3):s2$="":iflen(c$)>4thens2$=mid$(c$,5)
3020 ifc$="run"thenprint"[201] need a direction.":goto1000
3030 ifs$="run"thenc$="go "+s2$:goto2020
3040 ifs$="get"thenc$="take "+s2$:goto4160
3050 ifs$<>"te"then3110
3060 ifs2$<>"string"thenprinta$(1):goto1000
3070 ifo(20)<>rando(20)thenprinta$(1):goto1000
3080 input"to what -- in one word?";c$:ifc$<>"bug"thenprinta$(10):goto1000
3090 ifo(16)thenprinta$(5):goto1000
3100 print"[207]kay.":te=1:o$(16)="small gold bug tied to piece of string."
3102 o$(20)="":o(20)=0:goto1000
3110 ifc$="say"thenprinta$(1):goto1000
3120 ifs$="say"thenprint"[207]kay.":prints2$:printa$(8):goto1000
3125 ifs$="put"thenc$="insert "+s2$:goto8000
3130 ifs$<>"eat"then3220
3140 ifs2$="banana"ando(9)=0thenprint"[217]ummy!":o(9)=1000:goto1000
3150 ifs2$="opium"ando(18)=0thens=7:gosub26000:o(18)=1000:goto1000
3160 ifs2$=" opium"thenprinta$(5):goto1000
3170 forx=1to23:reado$:ifs2$=o$ando(x)=0thenprinta$(10):x=50
3180 next
3190 restore
3200 ifx<50thenprinta$(1)
3210 restore:goto1000
3220 ifs$<>"pet"then3260
3230 ifo(7)<>rthenprinta$(10):goto1000
3240 fl=0:ifs2$="orangutan"thenfl=1
3242 iffl=1thenprint"[200]e looks at me strangely and waves his hand at me.":goto1000
3244 fl=0
3250 printa$(1):goto1000
3260 ifs$="net"ando(14)=0thenfl=1
3262 iffl=1thenprint"[212]his is a butter fly net. [196]o you think "s2$" looks like";
3264 iffl=1thenprint" a butterfly?":goto1000
3270 ifs$="net"thenprinta$(5):goto1000
3280 ifs$<>"rap"ands$<>"tap"ands$<>"hit"then3310
3290 fl=0:ifo(10)=0thenfl=1
3292 iffl=1thenprint"[201]f you want to hit something with the "
3294 iffl=1thenprint"pix, try the expression 'pick (blank)'."
3296 iffl=1thenprint"[205]eanwhile, without the pick..."
3298 fl=0
3300 printa$(8):goto1000
3310 ifs$<>"dig"then3990
3320 ifr<>11thens$="pick":goto5520
3330 ifo(10)=1thenprinta$(5):goto1000
3340 input"[215]here -- in one word?";c$
3342 ifc$<>"mark"andc$<>"bug"thenprinta$(8):goto1000
3350 o(22)=4:o(13)=r:print"[197]ureka!! [215]e've found it!!! [212]here's "
3352 print"real treasure here at last!!!":sc=4:goto1000
3990 printa$(2):prints$:goto1000
4000 rem4letterwords
4010 s$=left$(c$,4):s2$="":iflen(c$)>5thens2$=mid$(c$,6)
4020 ifs$<>"read"then4140
4030 ifc$="read"thenprinta$(1):goto1000
4040 ifleft$(s2$,4)="book"thenprint"[208]lease be more specific.":goto1000
4050 ifs2$="lolita"ando(6)=0thens=8:gosub26000:goto1000
4060 fl=0:if(s2$="dictionary"ors2$="ameslan")ando(8)=0thenfl=1
4062 iffl=1thens=9:gosub26000:fr=1:fl=0:goto1000
4070 ifs2$="manuscript"ando(23)=0thens=10:gosub26000:goto1000
4080 ifs2$="plaque"andr=1thens=12:gosub26000:goto1000
4090 ifs2$="sign"andr=5thens=16:gosub26000:goto1000
4100 ifs2$="note"andr=6thens=17:gosub26000:goto1000
4110 fl=0:ifs2$="ameslan"ors2$="lolita"ors2$="dictionary"thenfl=1
4112 iffl=1ors2$="manuscript"thenprinta$(11):fl=0:goto1000
4120 ifs2$="plaque"ors2$="sign"ors2$="note"thenprinta$(6):goto1000
4130 printa$(1):goto1000
4140 ifs$="push"thenc$="press "+s2$:s$="press":goto6280
4150 ifs$<>"take"then4300
4160 ifc$="take"thenprinta$(1):goto1000
4170 ifs2$="inventory"then14100
4180 ifr=3ando(7)=rthenprint"[212]he orangutan won't let me.":goto1000
4190 ifs2$="all"thenprint"[208]lease be more specific.":goto1000
4200 ifleft$(s2$,3)="jug"thenprinta$(10):goto1000
4205 ifs2$="hole"thenprint"[206]ow really...":goto1000
4210 fl=0:ifs$="take"andwt=7thenprint"[201] can't do that. [201]'m":fl=1
4212 iffl=1thenprint"carrying too much already.":fl=0:goto1000
4220 ifs2$="dictionary"thens2$="ameslan"
4230 fl=0:ifs2$="raven"thenprint"[200]e bites me on the finger.":fl=1
4232 iffl=1t